home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / tk.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  4.7 KB  |  156 lines
  1. if (!defined &_TK) {
  2.     eval 'sub _TK {1;}';
  3.     if (!defined &_TCL) {
  4.     require 'tcl.ph';
  5.     }
  6.     if (!defined &_XLIB_H) {
  7.     require 'X11/Xlib.ph';
  8.     }
  9.     if (defined( &USE_ANSI) && defined( &__STDC__)) {
  10.     eval 'sub _ARGS_ {
  11.         local($x) = @_;
  12.         eval "$x";
  13.     }';
  14.     }
  15.     else {
  16.     eval 'sub _ARGS_ {
  17.         local($x) = @_;
  18.         eval "()";
  19.     }';
  20.     eval 'sub const {1;}';
  21.     }
  22.     if (!defined &_CLIENTDATA) {
  23.     eval 'sub _CLIENTDATA {1;}';
  24.     }
  25.     eval 'sub TK_ARGV_CONSTANT {15;}';
  26.     eval 'sub TK_ARGV_INT {16;}';
  27.     eval 'sub TK_ARGV_STRING {17;}';
  28.     eval 'sub TK_ARGV_UID {18;}';
  29.     eval 'sub TK_ARGV_REST {19;}';
  30.     eval 'sub TK_ARGV_FLOAT {20;}';
  31.     eval 'sub TK_ARGV_FUNC {21;}';
  32.     eval 'sub TK_ARGV_GENFUNC {22;}';
  33.     eval 'sub TK_ARGV_HELP {23;}';
  34.     eval 'sub TK_ARGV_CONST_OPTION {24;}';
  35.     eval 'sub TK_ARGV_OPTION_VALUE {25;}';
  36.     eval 'sub TK_ARGV_OPTION_NAME_VALUE {26;}';
  37.     eval 'sub TK_ARGV_END {27;}';
  38.     eval 'sub TK_ARGV_NO_DEFAULTS {0x1;}';
  39.     eval 'sub TK_ARGV_NO_LEFTOVERS {0x2;}';
  40.     eval 'sub TK_ARGV_NO_ABBREV {0x4;}';
  41.     eval 'sub TK_ARGV_DONT_SKIP_FIRST_ARG {0x8;}';
  42.     eval 'sub TK_CONFIG_BOOLEAN {1;}';
  43.     eval 'sub TK_CONFIG_INT {2;}';
  44.     eval 'sub TK_CONFIG_DOUBLE {3;}';
  45.     eval 'sub TK_CONFIG_STRING {4;}';
  46.     eval 'sub TK_CONFIG_UID {5;}';
  47.     eval 'sub TK_CONFIG_COLOR {6;}';
  48.     eval 'sub TK_CONFIG_FONT {7;}';
  49.     eval 'sub TK_CONFIG_BITMAP {8;}';
  50.     eval 'sub TK_CONFIG_BORDER {9;}';
  51.     eval 'sub TK_CONFIG_RELIEF {10;}';
  52.     eval 'sub TK_CONFIG_CURSOR {11;}';
  53.     eval 'sub TK_CONFIG_SYNONYM {12;}';
  54.     eval 'sub TK_CONFIG_END {13;}';
  55.     eval 'sub Tk_Offset {
  56.         local($type, $field) = @_;
  57.         eval "((\'int\') ((\'char\' *) &(($type *) 0)->$field))";
  58.     }';
  59.     eval 'sub TK_CONFIG_ARGV_ONLY {1;}';
  60.     eval 'sub TK_CONFIG_COLOR_ONLY {2;}';
  61.     eval 'sub TK_CONFIG_MONO_ONLY {4;}';
  62.     eval 'sub TK_CONFIG_USER_BIT {0x100;}';
  63.     if (!defined &_TKINT) {
  64.     require 'tkInt.ph';
  65.     }
  66.     eval 'sub TK_READABLE {1;}';
  67.     eval 'sub TK_WRITABLE {2;}';
  68.     eval 'sub TK_EXCEPTION {4;}';
  69.     eval 'sub TK_WIDGET_DEFAULT_PRIO {20;}';
  70.     eval 'sub TK_STARTUP_FILE_PRIO {40;}';
  71.     eval 'sub TK_USER_DEFAULT_PRIO {60;}';
  72.     eval 'sub TK_INTERACTIVE_PRIO {80;}';
  73.     eval 'sub TK_MAX_PRIO {100;}';
  74.     eval 'sub TK_RELIEF_RAISED {1;}';
  75.     eval 'sub TK_RELIEF_FLAT {2;}';
  76.     eval 'sub TK_RELIEF_SUNKEN {4;}';
  77.     eval 'sub TK_NOTIFY_SHARE {20;}';
  78.     eval 'sub Tk_Display {
  79.         local($tkwin) = @_;
  80.         eval "((( &TkWindow *) ($tkwin))-> &display)";
  81.     }';
  82.     eval 'sub Tk_ScreenNumber {
  83.         local($tkwin) = @_;
  84.         eval "((( &TkWindow *) ($tkwin))-> &screenNum)";
  85.     }';
  86.     eval 'sub Tk_Screen {
  87.         local($tkwin) = @_;
  88.         eval "( &ScreenOfDisplay( &Tk_Display($tkwin),  &Tk_ScreenNumber($tkwin)))";
  89.     }';
  90.     eval 'sub Tk_WindowId {
  91.         local($tkwin) = @_;
  92.         eval "((( &TkWindow *) ($tkwin))-> &window)";
  93.     }';
  94.     eval 'sub Tk_Name {
  95.         local($tkwin) = @_;
  96.         eval "((( &TkWindow *) ($tkwin))-> &nameUid)";
  97.     }';
  98.     eval 'sub Tk_Class {
  99.         local($tkwin) = @_;
  100.         eval "((( &TkWindow *) ($tkwin))-> &classUid)";
  101.     }';
  102.     eval 'sub Tk_PathName {
  103.         local($tkwin) = @_;
  104.         eval "((( &TkWindow *) ($tkwin))-> &pathName)";
  105.     }';
  106.     eval 'sub Tk_X {
  107.         local($tkwin) = @_;
  108.         eval "((( &TkWindow *) ($tkwin))-> &changes. &x)";
  109.     }';
  110.     eval 'sub Tk_Y {
  111.         local($tkwin) = @_;
  112.         eval "((( &TkWindow *) ($tkwin))-> &changes. &y)";
  113.     }';
  114.     eval 'sub Tk_Width {
  115.         local($tkwin) = @_;
  116.         eval "((( &TkWindow *) ($tkwin))-> &changes. &width)";
  117.     }';
  118.     eval 'sub Tk_Height {
  119.         local($tkwin) = @_;
  120.         eval "((( &TkWindow *) ($tkwin))-> &changes. &height)";
  121.     }';
  122.     eval 'sub Tk_Changes {
  123.         local($tkwin) = @_;
  124.         eval "(&(( &TkWindow *) ($tkwin))-> &changes)";
  125.     }';
  126.     eval 'sub Tk_Attributes {
  127.         local($tkwin) = @_;
  128.         eval "(&(( &TkWindow *) ($tkwin))-> &atts)";
  129.     }';
  130.     eval 'sub Tk_IsMapped {
  131.         local($tkwin) = @_;
  132.         eval "((( &TkWindow *) ($tkwin))-> &flags &  &TK_MAPPED)";
  133.     }';
  134.     eval 'sub Tk_ReqWidth {
  135.         local($tkwin) = @_;
  136.         eval "((( &TkWindow *) ($tkwin))-> &reqWidth)";
  137.     }';
  138.     eval 'sub Tk_ReqHeight {
  139.         local($tkwin) = @_;
  140.         eval "((( &TkWindow *) ($tkwin))-> &reqHeight)";
  141.     }';
  142.     eval 'sub Tk_InternalBorderWidth {
  143.         local($tkwin) = @_;
  144.         eval "((( &TkWindow *) ($tkwin))-> &internalBorderWidth)";
  145.     }';
  146.     eval 'sub Tk_Parent {
  147.         local($tkwin) = @_;
  148.         eval "(( &Tk_Window) ((( &TkWindow *) ($tkwin))-> &parentPtr))";
  149.     }';
  150.     eval 'sub Tk_DisplayName {
  151.         local($tkwin) = @_;
  152.         eval "((( &TkWindow *) ($tkwin))-> &dispPtr-> &name)";
  153.     }';
  154. }
  155. 1;
  156.